﻿

Public Class MisVacunas
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim imagfondo As Image = Page.Master.FindControl("Image2")
        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset

        If Not Page.IsPostBack Then
            FG.culturaPaginas()

            'acomodo la imagen de fondo
            imagfondo.Height = 300

            'Cargo páginas anterior y actual!!!
            Var_Globales.Setea_paginas("MisVacunas.aspx")



            param(0) = New ADODB.Parameter
            param(0).Name = "@DNI"
            param(0).Type = ADODB.DataTypeEnum.adVarChar
            param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
            'param(0).Value = MI_persona.PersLOgueada.Dev_Dni
            param(0).Value = PersLOgueada.Dev_Dni
            param(0).Size = 10


            Rs = Datos.TraerTodos("TraeINfoDeVAcunasParaHCxDni", param, "MisVacunas.aspx")
            gvVacunas.DataSource = FG.cargaUnDataTable(Rs)
            gvVacunas.DataBind()

        End If
    End Sub

End Class